home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 06 (1989-06)(MindCraft Publishing)(Side A).zip / Nibble Volume 10, No. 06 (1989-06)(MindCraft Publishing)(Side A).po / COMBINATIONS.bas < prev    next >
BASIC Source File  |  1996-12-24  |  398b  |  2 lines
  1. 10  HOME : VTAB 8: PRINT "COMBINATIONS: N THINGS TAKEN R AT A TIME": INPUT " ENTER AS N,R ?";N,R: DIM C(N,R): FOR I = 0 TO N -1:C(I,0) = 1: FOR J = 0 TO R -2:C(I +1,J +1) = C(I,J) +C(I,J +1): NEXT :C(N,R) = C(N,R) +C(I,R -1): NEXT 
  2. 20  PRINT : PRINT "    COMBOS="C(N,R): PRINT "ALL ITEMS TO APPEAR "C(N -1,R -1)" TIMES": PRINT : PRINT  TAB( 10)"-PRESS Q TO QUIT-";: GET A$: IF A$ < >"Q"  THEN  RUN